home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1043 / gepackt.exe / SPRACHEN / COBOL / COBOL.SSD < prev    next >
Encoding:
Text File  |  1992-08-01  |  2.1 KB  |  44 lines
  1. ; Graphischer Editor für Struktogramme (G.E.S.y) V2.1
  2. ;
  3. ; Dipl.-Ing. Michael Denzlein
  4. ; S.I.P.-Software Lösungen
  5. ; Griesäckerstr. 15
  6. ; W-8608 Memmelsdorf/Bamberg
  7. ;
  8. ; Quelltextskelett-Übersetzungsdatei für Cobol (alter Standard)
  9. ;
  10. ; Parameter:
  11. ; \$     Objektnamen einfügen
  12. ; \#     Objekttext einfügen
  13. ; \+     oberen Text eines FOR-Objektes einfügen
  14. ; \@     Sohnliste hier einfügen
  15. ; \%     Sohnliste unter einem Fallunterscheidungsobjekt einfügen
  16. ; \iNAME Datei NAME einfügen (nur Großbuchstaben!)
  17. ; \\     das \-Zeichen
  18. ; \?     Meldungsbox (für in einer Sprache undefinierte Objekte)
  19. ; \n     neue Zeile
  20. ; \&xxx  in der Spalte weitermachen (Kommentarbeginn)
  21. ; \>     ab der nächsten Zeile eine Tabulator-Position einrücken
  22. ; \<     ab der nächsten Zeile eine Tabulator-Position ausrücken
  23. ; \0..\9 Label-Nummern - pro Objekt 10 Stück
  24. ; \p     Parameter-Liste (nur bei Procedur- und Root-Sinnbild)
  25. *.CBL
  26. \i COBOL.HDR\n\n\n
  27. \i SECTION.HDR\n      * \#\n       \$ SECTION.\n       \$.\n\@       <PROCende>.\n           EXIT.\n      * Ende von \$ \n\n\n
  28.       * \#\n
  29.       * \#\n
  30.       * \#\n           PERFORM \0 SECTION UNTIL <Bedingung>.\n           GO TO \1.\n       \0 SECTION.\n       \0.\n\@\n       \2 SECTION.\n       \1.\n\n
  31.       * \#\n           PERFORM \0 SECTION UNTIL <Bedingung>.\n           GO TO \1.\n       \0 SECTION.\n       \0.\n\@\n       \2 SECTION.\n       \1.\n\n
  32.       * \#\n           PERFORM \0 SECTION VARYING <Var>\n           FROM <Start> BY <Step> UNTIL <Bedingung>.\n           GO TO \1.\n       \0 SECTION.\n       \0.\n\@\n       \2 SECTION.\n       \1.\n\n
  33.       * \#\n           IF <Bed.>\n\@\n           ELSE\n\@       <endif>.\n\n
  34.       *** Case-Beginn\n      * \#\n           GO TO\n              <Zielsektionen>\n           DEPENDING ON <Var>.\n           GO TO \0.\n\n
  35.       *** Case-Ende\n       \0.\n\n
  36.       * \#\n
  37.       * \#\n       <n> SECTION.\n       <n>.\n\%\n           GO TO \0.\n\n
  38.       * \#\n           PERFORM \$.\n\n
  39.       * \#\n           GO TO <PROCende>.\n\n
  40.       ******** Parallel-Start \#\n
  41.       ******** Parallel-Ende  \#\n
  42.       ******** Parallel-Mitte \#\n
  43. Ja
  44.